home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 8: LINUX Games / Linux Cubed Series 8 - LINUX Games.iso / games / x11 / rpg / crossfir.92 / crossfir / crossfire-0.92.5 / utils / mapconv.script < prev    next >
Text File  |  1996-07-24  |  2KB  |  89 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # mapconv by Jarkko.Sonninen@lut.fi
  4. # converts .om & .oo style maps into another format
  5. #
  6. # to use it, go to map directory and give mapnames as parameters
  7. # .oo and .oo extensions are stripped off the filenames
  8. # for example   
  9. #    mapconv map.01
  10. #    mapconv *.oo
  11. #
  12.  
  13.  
  14. $BMAPS = "../bmaps";
  15.  
  16. open (BM, $BMAPS) || die "aargh";
  17.                 # 
  18. while ($_=<BM>) {
  19.     if (/\\(\d+)\s+(\S*)/) {
  20.     if ($2 eq "dwall_3_3") {
  21.         # kludge alert!
  22.         # try to make an archetype with name "dwall_3_3" and enjoy!
  23.         $face[$1] = "dwall3_3";
  24.     } else {
  25.         $face[$1] = $2;
  26.     }
  27.     }
  28. } 
  29. close (BM);
  30.     
  31. while ($map = shift @ARGV) {
  32.     if ($map =~ /(.*)\.oo$|(.*)\.om$/) {
  33.     $map = $1;
  34.     }
  35.     open (OMAP, "<$map.oo") || die "cannot open $map.oo";
  36.     open (MAP, "<$map.om") || die "cannot open $map.om";
  37.  
  38.     open (OO, ">$map") || die "aargh";
  39.  
  40.     print "converting $map\n";
  41.     
  42.     $_=<MAP>; ($mapx) = /\w+\s+(\d+)/;
  43.     $_=<MAP>; ($mapy) = /\w+\s+(\d+)/;
  44.     $_=<MAP>; ($startx) = /\w+\s+(\d+)/;
  45.     $_=<MAP>; ($starty) = /\w+\s+(\d+)/;
  46.     $_=<MAP>; ($msgsize) = /\w+\s+(\d+)/;
  47.     $_=<MAP>; ($msglines) = /\w+\s+(\d+)/;
  48.  
  49.     print OO "arch map\n";
  50.     print OO "x $mapx\n";
  51.     print OO "y $mapy\n";
  52.     print OO "hp $startx\n";
  53.     print OO "sp $starty\n";
  54.  
  55.     if ($msglines) {
  56.     print OO "msg\n";
  57.     while ($msglines-- > 0) {
  58.         $_=<MAP>;
  59.         print "msg:$_";
  60.         print OO $_;
  61.     }
  62.     print OO "endmsg\n";
  63.     }
  64.     print OO "end\n";
  65.  
  66.     while ($_ = <OMAP>) {
  67.     print OO $_;
  68.     }
  69.     
  70.     print "$mapx x $mapy\n"; 
  71.     for ($i = 0; $i < $mapx; $i++) { 
  72.     for ($j = 0; $j < $mapy; $j++) {
  73.         $_=<MAP>;
  74.         if ($_ != 35) {
  75.         if ($face[$_]) { 
  76.             print OO "arch $face[$_]\n";
  77.             if ($i) {
  78.             print OO "x $i\n";
  79.             }
  80.             if ($j) {
  81.             print OO "y $j\n";
  82.             }
  83.         print OO "end\n";
  84.         }
  85.         }
  86.     }
  87.     }
  88. }
  89.